home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / oleo-1_4.lha / oleo-1.4 / posixtm.y < prev    next >
Text File  |  1993-05-21  |  4KB  |  174 lines
  1. /* Parse dates for touch.
  2.    Copyright (C) 1989, 1990, 1991 Free Software Foundation Inc.
  3.  
  4.    This program is free software; you can redistribute it and/or modify
  5.    it under the terms of the GNU General Public License as published by
  6.    the Free Software Foundation; either version 2, or (at your option)
  7.    any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.    GNU General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU General Public License
  15.    along with this program; if not, write to the Free Software
  16.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  17.  
  18. /* Written by Jim Kingdon and David MacKenzie. */
  19. %{
  20. #ifdef __GNUC__
  21. #define alloca __builtin_alloca
  22. #else
  23. #if defined (HAVE_ALLOCA_H) || (defined(sparc) && (defined(sun) || (!defined(USG) && !defined(SVR4) && !defined(__svr4__))))
  24. #include <alloca.h>
  25. #else
  26. #ifdef _AIX
  27.  #pragma alloca
  28. #else
  29. char *alloca ();
  30. #endif
  31. #endif
  32. #endif
  33.  
  34. #include <stdio.h>
  35. #include <sys/types.h>
  36. #include <time.h>
  37.  
  38. #define YYDEBUG 1
  39.  
  40. /* Lexical analyzer's current scan position in the input string. */
  41. static char *curpos;
  42.  
  43. /* The return value. */
  44. static struct tm t;
  45.  
  46. time_t mktime ();
  47.  
  48. #define yyparse posixtime_yyparse
  49. static int yylex ();
  50. static int yyerror ();
  51. %}
  52.  
  53. %token DIGIT
  54.  
  55. %%
  56. date :
  57.        digitpair /* month */
  58.        digitpair /* day */
  59.        digitpair /* hours */
  60.        digitpair /* minutes */
  61.        year
  62.        seconds {
  63.              if ($1 >= 1 && $1 <= 12)
  64.            t.tm_mon = $1 - 1;
  65.          else {
  66.            YYABORT;
  67.          }
  68.          if ($2 >= 1 && $2 <= 31)
  69.            t.tm_mday = $2;
  70.          else {
  71.            YYABORT;
  72.          }
  73.          if ($3 >= 0 && $3 <= 23)
  74.            t.tm_hour = $3;
  75.          else {
  76.            YYABORT;
  77.          }
  78.          if ($4 >= 0 && $4 <= 59)
  79.            t.tm_min = $4;
  80.          else {
  81.            YYABORT;
  82.          }
  83.            }
  84.  
  85. year : digitpair {
  86.                    t.tm_year = $1;
  87.            /* Deduce the century based on the year.
  88.               See POSIX.2 section 4.63.3.  */
  89.            if ($1 <= 68)
  90.              t.tm_year += 100;
  91.          }
  92.     | digitpair digitpair {
  93.                             t.tm_year = $1 * 100 + $2;
  94.                 if (t.tm_year < 1900) {
  95.                   YYABORT;
  96.                 } else
  97.                   t.tm_year -= 1900;
  98.               }
  99.     | /* empty */ {
  100.                     time_t now;
  101.             struct tm *tmp;
  102.  
  103.                     /* Use current year.  */
  104.                     time (&now);
  105.             tmp = localtime (&now);
  106.             t.tm_year = tmp->tm_year;
  107.           }
  108.     ;
  109.  
  110. seconds : /* empty */ {
  111.                         t.tm_sec = 0;
  112.               }
  113.         | '.' digitpair {
  114.                       if ($2 >= 0 && $2 <= 61)
  115.                 t.tm_sec = $2;
  116.               else {
  117.                 YYABORT;
  118.               }
  119.             }
  120.         ;
  121.  
  122. digitpair : DIGIT DIGIT {
  123.                           $$ = $1 * 10 + $2;
  124.             }
  125.           ;
  126. %%
  127. static int
  128. yylex ()
  129. {
  130.   char ch = *curpos++;
  131.  
  132.   if (ch >= '0' && ch <= '9')
  133.     {
  134.       yylval = ch - '0';
  135.       return DIGIT;
  136.     }
  137.   else if (ch == '.' || ch == 0)
  138.     return ch;
  139.   else
  140.     return '?';            /* Cause an error.  */
  141. }
  142.  
  143. static int
  144. yyerror ()
  145. {
  146.   return 0;
  147. }
  148.  
  149. /* Parse a POSIX-style date and return it, or (time_t)-1 for an error.  */
  150.  
  151. time_t
  152. posixtime (s)
  153.      char *s;
  154. {
  155.   curpos = s;
  156.   /* Let mktime decide whether it is daylight savings time.  */
  157.   t.tm_isdst = -1;
  158.   if (yyparse ())
  159.     return (time_t)-1;
  160.   else
  161.     return mktime (&t);
  162. }
  163.  
  164. /* Parse a POSIX-style date and return it, or NULL for an error.  */
  165.  
  166. struct tm *
  167. posixtm (s)
  168.      char *s;
  169. {
  170.   if (posixtime (s) == -1)
  171.     return NULL;
  172.   return &t;
  173. }
  174.